home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / SLTPU70C / BLOCK.REF < prev    next >
Text File  |  1991-07-10  |  2KB  |  46 lines
  1.  
  2. The follwing is a reference of the data types provided by BLOCK.TPU.
  3. Note: do not attempt to compile this file.  Doing so may cause the
  4. updated BLOCK.TPU file to be incompatible with the other TPU files.
  5.  
  6.  
  7. type FileHeader = record      { header info on file }
  8.        version: word;              { version of unit that created file }
  9.        recsize: word;              { record size }
  10.        offset: longint;            { offset to 1st record }
  11.        nextfree: longint;          { next free record }
  12.      end;
  13.  
  14.      RecordHeader = record    { control header to records }
  15.        mark: byte;                 { FF to indicate deleted rec }
  16.        extra: byte;
  17.        next: longint;              { ptr to next free rec }
  18.      end;
  19.  
  20.      TreeRootType = record     { root info for tree/list type files }
  21.        treeroot: longint;      { root of tree }
  22.        listroot: longint;      { linked list root }
  23.        entries: longint;       { # of entries }
  24.      end;
  25.  
  26.      TreeLeafType = record     { leaf info for tree/list type files }
  27.        status: byte;           { 0=active, 255=deleted }
  28.        left,right: longint;    { pointers to child nodes }
  29.        last,next: longint;     { linked list ptrs }
  30.      end;
  31.  
  32.  
  33.      BlockFileType = record        { ram file info }
  34.        filevar: file;              { dos file var }
  35.        open: boolean;              { set if file is open }
  36.        lock: integer;              { file lock count }
  37.        recsize: word;              { record size }
  38.        offset: longint;            { offset to 1st record }
  39.        header: fileheader;         { header info }
  40.        hlock: integer;             { header locked? }
  41.      end;
  42.  
  43.  
  44. (c) Copyright 1991 Searchlight Software
  45.  
  46.